home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso / intros / 64k / revolt / sources / part1.as3 < prev    next >
Text File  |  1996-01-26  |  4KB  |  238 lines
  1.  
  2. ;robota    = 1    ;gdy IFDEF to wersja do obróbki designu (szybka)
  3.  
  4. ; poczåtek intra:
  5. ;    - migniæcie gdy lalalalala
  6. ;    - blur z amnesty wlatujåcy and lulababy
  7. ;    - kræci siæ i odlatuje
  8. ;    - z góry wlatuje REVOLT
  9. ;    - trochæ siæ lula a potem przy perce migniæcia i PART2
  10.  
  11. jumps
  12. .386p
  13. CODE32 SEGMENT PARA PUBLIC USE32
  14. ASSUME cs:CODE32, ds:CODE32
  15.  
  16.         include    design.mak
  17.  
  18.         include pmode.inc
  19.         include    timer.ext
  20.         include    rotatem.ext
  21.  
  22.         EXTRN    gold    :BYTE
  23.  
  24.         EXTRN    sound    :BYTE
  25.         PUBLIC     part1
  26.         liii    dd    0
  27.         
  28.         mode    dw    0
  29.         mama    db    0
  30.  
  31. make_me_happy    PROC
  32.         lea    esi,gold
  33.         call    generate32env
  34.         mov    zdelta,625
  35.         mov    angleZ,10
  36.         mov    inc_xxx,0
  37.         mov    inc_yyy,0
  38.         mov    inc_zzz,0
  39.         lea    edi,pixels
  40.         mov    adr_pixels,edi
  41.         lea    edi,faces
  42.         mov    adr_faces,edi
  43.         mov    number_p,number_of_points
  44.         mov    number_f,number_of_faces
  45.         call    calc_nor
  46.         ret
  47. make_me_happy    ENDP
  48.  
  49. make_me_happy2    PROC
  50.         lea    edi,revolt
  51.         mov    adr_pixels,edi
  52.         lea    edi,revoltf
  53.         mov    adr_faces,edi
  54.         mov    number_p,revoltnp
  55.         mov    number_f,revoltnf
  56.         call    calc_nor
  57.         ret
  58. make_me_happy2    ENDP
  59.  
  60. part1        PROC
  61.  
  62.         call    siej
  63.  
  64.         lea    edi,pal_pom2
  65.         mov    ecx,768/4
  66.         mov    eax,03f3f3f3fh
  67.         rep    stosd
  68.  
  69.         call    set_mode13
  70.         call    pal_black    
  71.         call    make_me_happy
  72.  
  73.         lea    esi,tÆo    
  74.         lea    edi,screen
  75.         call    copyEkran
  76.         lea    esi,screen
  77.         call    ekran        
  78.  
  79.         mov    mode,0fh
  80.         design    mode,guj
  81.     guj:
  82.  
  83.         call    pal_white
  84.     rept    3
  85.         lea    edi,pal
  86.         mov    bl,10
  87.         call    pal_fadein10
  88.     endm
  89.         call    pal_white
  90.  
  91.         mov    ecx,15
  92.     @rt:    push    ecx
  93.         lea    edi,pal
  94.         mov    bl,4
  95.         call    pal_fadein10    
  96.         pop    ecx
  97.         loop    @rt
  98.  
  99.         mov    MODE,16H
  100.         DESIGN    MODE,GUJ2
  101.     GUJ2:
  102.         CALL    PAL_WHITE
  103.     REPT    15
  104.         LEA    EDI,PAL
  105.         MOV    BL,10
  106.         CALL    PAL_FADEIN10
  107.     ENDM
  108.         call    reset_ramki
  109.         mov    d_x,-20
  110.     pætla3:    
  111.         mov    al,mama
  112.         or    al,al
  113.         jz    mam2
  114.  
  115.         jmp    kui3
  116.     mam2:    
  117.         mov    eax,ramki
  118.         add    liii,eax
  119.         shl    eax,1
  120.         add    d_x,ax
  121.         shl    eax,1
  122.         sub    zdelta,eax
  123.         cmp    d_x,160
  124.         jl    kui
  125.         mov    d_x,160
  126.     kui:    cmp    zdelta,180
  127.         ja    kui2
  128.         mov    zdelta,180
  129.     kui2:
  130.         mov    eax,liii
  131.         and    eax,0ffh
  132.         movsx    eax,word ptr [offset sin+eax*2]
  133.         sar    eax,6                        ;6
  134.         mov    angleZ,eax
  135.     kui3:
  136.         call    reset_ramki
  137.         lea    esi,tÆo    
  138.         lea    edi,screen
  139.         call    copyEkran
  140.         call    copyPoints
  141.         call    rotatety2
  142.         call    _sort
  143.         call    make_lightE
  144.         call    drawFacesVE
  145.     IFDEF    robota
  146.         lea    esi,screen
  147.         call    ekran
  148.     ELSE
  149.         call    blur
  150.     ENDIF
  151.         mov    al,mama
  152.         or    al,al
  153.         jnz    ogurek
  154.         mov    mode,32h        ;32h
  155.         design2    mode,ogurek,pætla3
  156.     ogurek:    
  157.         mov    eax,ramki
  158.         shl    eax,1                        ;1
  159.         sub    angleZ,eax
  160.         add    d_x,ax
  161.         add    d_x,ax
  162.         mov    mama,1
  163.         mov    mode,03eh-1
  164.         design2    mode,ogurek2,pætla3
  165.     ogurek2:
  166.         mov    zdelta,180
  167.         call    make_me_happy2
  168.         mov    liii,0
  169.         mov    anglez,0
  170.         mov    d_x,160
  171.         mov    d_y,-40
  172.         call    reset_ramki
  173.     ogórek:
  174.         mov    eax,ramki
  175.         add    liii,eax
  176.         mov    eax,liii
  177.         and    eax,0ffh
  178.         movsx    eax,word ptr [offset sin+eax*2]
  179.         sar    eax,6                        ;7
  180.         mov    angleZ,eax
  181.         mov    eax,ramki
  182.         add    d_y,ax
  183.         cmp    d_y,100
  184.         jl    ogó
  185.         mov    d_y,100
  186.     ogó:    call    reset_ramki
  187.         lea    esi,tÆo    
  188.         lea    edi,screen
  189.         call    copyEkran
  190.         call    copyPoints
  191.         call    rotatety2
  192.         call    _sort
  193.         call    make_lightE
  194.         call    drawFacesVE
  195.     IFDEF    robota
  196.         lea    esi,screen
  197.         call    ekran
  198.     ELSE
  199.         call    blur
  200.     ENDIF
  201.         mov    mode,130h    
  202.         design2    mode,ogórek2,ogórek
  203.     ogórek2:
  204.         mov    mode,131h    ;33
  205.     
  206.         mov    bl,1
  207.         mov    ecx,14+3
  208.     pp:    push    ecx ebx
  209.     
  210.     end1:    lea    esi,pal
  211.         call    pal_set
  212.     tik1:    lea    edi,pal_pom2
  213.         call    pal_fadein10
  214.         design2    mode,end2,tik1
  215.     end2:    
  216.         pop    ebx ecx
  217.         inc    bl
  218.         inc    mode
  219.         loop    pp
  220.         call    pal_white
  221.  
  222.         lea    esi,tÆo
  223.         call    ekran
  224.  
  225.         ret
  226. part1    ENDP
  227.  
  228.     pal:
  229.         include part1.pal
  230.  
  231.         include objects\amnesty._3d
  232.         include    objects\revolt._3d
  233.         include    revolt.ext
  234.  
  235. CODE32 ENDS
  236. END
  237.  
  238.